home *** CD-ROM | disk | FTP | other *** search
/ HamCall (October 1991) / HamCall (Whitehall Publishing)(1991).bin / bcast / bcstcble / boxloss.bas < prev    next >
BASIC Source File  |  1990-10-14  |  2KB  |  64 lines
  1. 100 ' *************** BOX LOSS CALCULATOR **********************
  2. 110 '
  3. 120 ' FORMULAS FROM THE LOUDSPEAKER DESIGN COOKBOOK BY VANCE DICKENSON
  4. 130 ' PROGRAM WRITTEN 9/87 BY C. HOFFMAN
  5. 140   KEY OFF:CLS
  6. 150   PRINT"             BOX LOSS CALCULATOR"
  7. 160   PRINT:PRINT:PRINT
  8. 170   PRINT"YOU WILL NEED TO MEASURE IMPEDANCE AT VARIOUS FREQUENCYS AND"
  9. 180   PRINT"HAVE THE VALUES OF QMS, QES, QTS, FS, AND DCR FOR THE DRIVER."
  10. 190   PRINT"THESE CAN BE OBTAINED IN PART ONE OF THE PROGRAM LOUDSP.EXE."
  11. 200   PRINT"OR THE LOUDSPEAKER DESIGN COOKBOOK, OR ONE OF THE WEEMS' BOOKS."
  12. 210   PRINT
  13. 220   PRINT"PLOT AN IMPEDANCE CURVE FROM 20 TO 100 HZ. & ANSWER THE FOLLOWING:"
  14. 230   PRINT:PRINT
  15. 240   INPUT"ENTER FREQUENCY OF LOWEST IMPEDANCE PEAK";FL
  16. 250   PRINT
  17. 260   PRINT"ENTER THE FREQUENCY OF THE LOWEST PART OF THE CURVE BETWEEN"
  18. 270   PRINT"THE TWO MAJOR PEAKS.  THIS FREQUENCY MAY BE MORE ACCURATELY"
  19. 280   PRINT"DETERMINED BY MONITORING THE WOOFER OUTPUT WITH A SOUND LEVEL"
  20. 290   PRINT"METER, AND NOTING THE FREQUENCY OF MINIMUM OUTPUT."
  21. 300   INPUT FM
  22. 310   PRINT
  23. 320   INPUT"ENTER FREQUENCY OF NEXT IMPEDANCE PEAK";FH
  24. 330   CLS
  25. 340   PRINT
  26. 350   INPUT"ENTER Z AT IMPEDANCE DIP";R0
  27. 360   PRINT
  28. 370   FB=FM
  29. 380   INPUT"ENTER DRIVER DC RESISTANCE IN OHMS";RE
  30. 390   PRINT
  31. 400   INPUT"ENTER DRIVER FREE AIR RES.";FS
  32. 410   PRINT
  33. 420   INPUT"ENTER DRIVER MECHANICAL Q (Qms)";QMS
  34. 430   PRINT
  35. 440   INPUT"ENTER DRIVER ELECTRICAL Q (Qes)";QES
  36. 450   PRINT
  37. 460   INPUT"ENTER DRIVER TOTAL Q (Qts)";QTS
  38. 470   PRINT:PRINT
  39. 480   FSB=FL*FH/FB
  40. 490   RM=R0/RE
  41. 500   QMSB=(FS/FSB)*QMS
  42. 510   QESB=(FS/FSB)*QES
  43. 520   QTSB=(FS/FSB)*QTS
  44. 530   HA=FB/FSB
  45. 540   AA=(FH^2-FB^2)*(FB^2-FL^2)/(FH^2*FL^2)
  46. 550   QL=(HA/AA)*((1/(QESB*(RM-1)))-(1/QMSB))
  47. 560   PRINT USING"LOSS (QL)= ##.##";QL
  48. 570   PRINT:PRINT:PRINT
  49. 580   PRINT"IF LOSS FIGURE DOES NOT AGREE WITH ORIGINAL DESIGN TARGET,"
  50. 590   PRINT"RETURN TO THE DESIGN TABLES TO DETERMINE NEW BOX SIZE AND"
  51. 600   PRINT"TUNING."
  52. 610   PRINT:PRINT
  53. 620   PRINT"HIT R TO REPEAT OR X TO EXIT"
  54. 630   A$=INKEY$
  55. 640   IF A$="" THEN 630
  56. 650   IF A$="R" OR A$="r" THEN 100
  57. 660   IF A$="X" OR A$="x" THEN 680
  58. 670   GOTO 630
  59. 680   KEY ON
  60. 690   END
  61. ="" THEN 630
  62. 650   IF A$="R" OR A$="r" THEN 100
  63. 660   IF A$="X" OR A$="x" THEN 680
  64. 670